(Fformat): Check format control characters.

diff --git a/src/editfns.c b/src/editfns.c
index f1f11cf27819e00b7631b332a9d036b047949043..1f855e8480eee180ca68ff738ea14e381a787ba3 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2551,7 +2551,12 @@ Use %% to put a single % into the output.")
               be a double.  */
            if (*format == 'e' || *format == 'f' || *format == 'g')
              args[n] = Ffloat (args[n]);
+           else
 #endif
+             if (*format != 'd' && *format != 'o' && *format != 'x'
+                 && *format != 'X' && *format != 'c')
+               error ("Invalid format operation %%%c", *format);
+
            thissize = 30;      
            if (*format == 'c'
                && (! SINGLE_BYTE_CHAR_P (XINT (args[n]))